Міністерство освіти і науки України
Національний Університет «Львівська політехніка»
Кафедра «Інформаційні системи та мережі»
Лабораторна робота № 3
Методи та засоби комп’ютерних інформаційних технологій
«Оператори циклу й їх використання для операцій з масивами»
Мета: Набуття навичок із використання в програмах операторів циклу для операцій з массивами.
Завданя: Розробити програму формування значень функцій , , … , для х від a до b з кроком h. Для зберігання цих значень використати двовимірний масив. В робочому вікні програми передбачити задання початкового значення х – a, кінцевого – b і кроку його зміни – h, а також відображення зачень сформованої таблиці у вигляді колонок х, , , … , .
.
Хід виконання роботи
Створили форму програми, розмістивши на ній всі необхідні елементи.
/
Запрограмуємо події на перевірку вхідних даних.
procedure TForm1.Edit1Change(Sender: TObject);
var
i:double;
begin
If not TryStrToFloat(Edit1.Text,i) then Edit1.Text:='';
end;
procedure TForm1.Edit2Change(Sender: TObject);
var
i:double;
begin
If not TryStrToFloat(Edit2.Text,i) then Edit2.Text:='';
end;
procedure TForm1.Edit3Change(Sender: TObject);
var
i:double;
begin
If not TryStrToFloat(Edit3.Text,i) then Edit3.Text:='';
end;.
Запрограмуємо подію розрахунку вхідних даних.
procedure TForm1.Button1Click(Sender: TObject);
var
i,i1,code:integer;
s,ss:string;
begin
a:=StrToFloat(edit1.Text);
b:=StrToFloat(edit2.Text);
h:=StrToFloat(edit3.Text);
memo1.Lines.Add(ss);
i:=0;
s:=' ';
while a<=b do
begin
Inc(i);
q[1,i]:=a;
q[2,i]:=sin(a);
q[3,i]:=cos(a);
q[4,i]:=Tan(a);
a:=a+h;
end;
for i1:=1 to i do begin
ss:=FloatToStrF(q[1,i1],ffNumber,2,4)+s+FloatToStrF(q[2,i1],ffNumber,2,4)+s+FloatToStrF(q[3,i1],ffNumber,2,4)+s+FloatToStrF(q[4,i1],ffNumber,2,4);
memo1.Lines.Add(ss);
end;
Перевіримо роботу програми.
/
Висновок: Під час виконання лабораторної роботи набув навичок із із використання в програмах операторів циклу для операцій з массивами
